home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
PROBLEMS
/
BENCHMARK
/
BUBBLESORT
/
bubbletest
/
aforth
/
!run
next >
Wrap
Text File
|
1992-05-17
|
346b
|
9 lines
set bubble_aforth$dir <obey$dir>
rmensure forth 0 error 0 install aforth ! doubleclick to !Aforth
forth -bye <bubble_aforth$dir>.source { > <bubble_aforth$dir>.output }
set bubbletest$dir <obey$dir>.^
<bubbletest$dir>.prove <bubble_aforth$dir>.output { > <bubble_aforth$dir>.time }
settype <bubble_aforth$dir>.time text
<bubble_aforth$dir>.time